package DDG::Goodie::Pi;
# ABSTRACT: This Goodie returns 'pi' to a user-specified number of decimal places

use DDG::Goodie;
use utf8;

zci answer_type => "pi";
zci is_cached   => 1;

triggers startend => "pi","π";


my $PI = '3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679'.
         '8214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196'.
         '4428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273'.
         '724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609'.
         '433057270365759591953092186117381932611793105118548074462379962749567351885752724891227938183011949'.
         '129833673362440656643086021394946395224737190702179860943702770539217176293176752384674818467669405'.
         '132000568127145263560827785771342757789609173637178721468440901224953430146549585371050792279689258'.
         '923542019956112129021960864034418159813629774771309960518707211349999998372978049951059731732816096'.
         '318595024459455346908302642522308253344685035261931188171010003137838752886587533208381420617177669'.
         '147303598253490428755468731159562863882353787593751957781857780532171226806613001927876611195909216'.
         '4201989';

my $PI_max_digits = length($PI) - 2;

handle query_raw => sub {

    return unless $_ =~ /^(?:pi|π)?\s*(?:to|first)?\s*(?<decimal>\d+)\s*(?:(?:decimal|digit)s?)?\s*(?:of\s+(?:pi|π))?$/i && 
        $+{decimal} > 0 && $+{decimal} <= $PI_max_digits;

    my $answer = substr $PI, 0, ( $1 + 2 );
    return $answer, structured_answer => {
        data => {
            title => $answer,
            subtitle => "First $+{decimal} digits of Pi" 
        }, 
        templates => {
            group => 'text'
        }
    };

};

1;
